home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / Functions & Programs / •Gadgets / ChiSquared next >
Text File  |  1996-06-01  |  837b  |  43 lines
  1. {
  2.   calculates the sum of the differences squared of two columns in the current data window
  3.   
  4.   To use this program, hit cmd-L (or click the Add button) and choose
  5.   its name from the Misc menu.
  6. } 
  7.  
  8.  
  9. program Chi_squared;
  10.  
  11. var i, count:integer;
  12.             num:extended;
  13.             y1c,y2c:integer;
  14.             norm:boolean;
  15.             
  16. procedure initialize;
  17. begin
  18.     y1c:=2;y2c:=3;norm:=0;
  19. end;
  20.  
  21. begin
  22. input('$Cy1 Column',y1c,'$Cy2 Column',y2c,'$Xnormalized',norm);
  23. if ColEmpty(y1c) or ColEmpty(y2c) then
  24. begin
  25.     beep;
  26.     halt;
  27. end;
  28. num:=0;
  29. for i:=1 to NrRows do
  30.     begin
  31.         if dataok(i,y1c) and dataok(i,y2c) then
  32.         begin
  33.                 num:=num+sqr(data[i,y1c] - data[i,y2c]);
  34.                 if norm then count:=count+1;
  35.         end;
  36.     end;
  37.   if norm then 
  38.   begin 
  39.     writeln('#points = ',count); writeln('Chi-squared divided by #points = ',num/count) 
  40.   end
  41.    else  writeln('Chi-squared = ',num)
  42. end;
  43.